home *** CD-ROM | disk | FTP | other *** search
/ s-gikan2.maizuru-ct.ac.jp / s-gikan2.maizuru-ct.ac.jp.zip / s-gikan2.maizuru-ct.ac.jp / pub / ncvc352a_install.exe / {app} / scripts / by_round2.pl < prev    next >
Perl Script  |  2007-10-22  |  741b  |  27 lines
  1. #! /usr/bin/perl
  2.  
  3. #  NCâfü[â^Æåé╠ì└òWÆlé≡ 1/1000(żÉöæµéRê╩) ÄlÄ╠î▄ôⁿé╡üA     #
  4. #  1/100(żÉöæµéQê╩) é╔ò╧è╖é╖éΘâXâNâèâvâg                   #
  5. #  X,Y,Z,I,J,K,R,C,U,V,Wé╠îπé╠ÉöÄÜé¬æ╬Å█é╞é╚éΘ              #
  6. #  Å¼Éöô_ò\ïLé╔é╠é▌æ╬ë₧üBÉ«Éöò\ïLé╔é═ûóæ╬ë₧(Ägéªé▄é╣é±)     #
  7.  
  8. $pre_file= $ARGV[0];
  9. $out_file= $ARGV[1];
  10. open(IN,$pre_file);
  11. open(OUT,">$out_file");
  12.  
  13. while(<IN>){
  14.     if(!/^N?[0-9\s]*[\(\%]/){
  15.         $new_line= "";
  16.         while(/([XYZIJKRCUVW])([\-\d\.]+)/){
  17.             ($pre_line,$char,$num,$_)= ($`,$1,$2,$');
  18.             $round = (int($num*100 + ($num>0 ? 0.5 : -0.5))) / 100;
  19.             if ( $round !~ /\./ and $round != 0) {
  20.                 $round = $round."\.";
  21.             }
  22.             $new_line= $new_line.$pre_line.$char.$round;
  23.         }
  24.         $_= $new_line.$_;
  25.     }
  26.     print OUT;
  27. }